home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / dynace.d < prev    next >
Text File  |  1996-12-04  |  1KB  |  74 lines
  1. /*
  2.  *
  3.  *    Copyright (c) 1993-1996 Algorithms Corporation
  4.  *    3020 Liberty Hills Drive
  5.  *    Franklin, TN  37067
  6.  *
  7.  *    ALL RIGHTS RESERVED.
  8.  *
  9.  *
  10.  *
  11.  */
  12.  
  13. defclass Dynace;
  14.  
  15. cmeth    gTracePrint(char *buf)
  16. {
  17.     if (File_c)
  18.         gPuts(traceStream, buf);
  19.     else
  20.         printf("%s", buf);
  21.     return self;
  22. }
  23.  
  24. cmeth    gObjectChecking(int x)
  25. {
  26.     _CheckObjects_ = x;
  27.     if (!x)
  28.         _LastGeneric_ = NULL;
  29.     return self;
  30. }
  31.  
  32. objrtn    Dynace_initialize(void)
  33. {
  34.     if (Dynace_c)
  35.         return Dynace_c;
  36.  
  37.     Dynace_c = gNewClass(Class, "Dynace", 0, 0, END);
  38.  
  39.     cMethodFor(Dynace, gTracePrint, Dynace_cm_gTracePrint);
  40.     cMethodFor(Dynace, gObjectChecking, Dynace_cm_gObjectChecking);
  41.     return Dynace_c;
  42. }
  43.  
  44. #if 0  /*  code for the benefit of dpp  */
  45.  
  46. cmeth    gResizeMethodCache(int classes, int generics){}
  47. cmeth    gSetMemoryBufferArea(long sz){}
  48. cmeth    void    gMarkRange(char _HUGE **from, char _HUGE **to){}
  49. cmeth    gGC(){}
  50. cmeth    void    *gRegisterMemory(void *beg, long size){}
  51. cmeth    void    gRemoveRegisteredMemory(void *pp){}
  52. cmeth    void    *gChangeRegisteredMemory(void *pp, void *beg, long size){}
  53. cmeth    long    gMaxAfterGC(){}
  54. cmeth    long    gMaxMemUsed(){}
  55. cmeth    long    gCurMemUsed(){}
  56. cmeth    int    gTrace(int mode){}
  57. cmeth    void    gMarkObject(object obj){}
  58. cmeth    gDumpObjects(char *file, int type){}
  59.  
  60. #endif
  61.  
  62.  
  63. /*
  64.  *
  65.  *    Copyright (c) 1993-1996 Algorithms Corporation
  66.  *    3020 Liberty Hills Drive
  67.  *    Franklin, TN  37067
  68.  *
  69.  *    ALL RIGHTS RESERVED.
  70.  *
  71.  *
  72.  *
  73.  */
  74.